Cocktail Hour/image.iso/COCKTAIL.DIR/SShow_1_SlideShow Movie Script.ls

Text File | 1997-03-05 | 4.5 KB | 101 lines

on slideShow direction
  global gDirection0IsBack1IsFwd, gRecNumber, gCurrentSlideShow, gCurrentZone, gPictureSprite, gElevatorSprite, gScrollBarSprite, gSlideListCstNum, gTitleCstNum, gFirstPictureCstNum, gPictNumInOrder, gLinesNumber, gAutoMode
  puppetSprite(gPictureSprite, 1)
  set the itemDelimiter to ","
  set gRecNumber to word 1 of item 2 of the text of member gSlideListCstNum of castLib "sshow"
  if voidp(direction) then
    set direction to gDirection0IsBack1IsFwd
  end if
  set newZone to 0
  if direction and (gCurrentZone < gLinesNumber) then
    set newZone to gCurrentZone + 1
  else
    if not direction and (gCurrentZone > 1) then
      set newZone to gCurrentZone - 1
    end if
  end if
  if (newZone <> gCurrentZone) and (newZone <> 0) then
    set gCurrentZone to newZone
    set the itemDelimiter to ","
    set gPictNumInOrder to value(item gCurrentZone of the text of member "order" of castLib "sshow")
    set the itemDelimiter to ","
    set recLine to line gPictNumInOrder of the text of member gSlideListCstNum of castLib "sshow"
    set gRecNumber to value(word 1 of item 2 of recLine)
    delete word 1 of item 2 of recLine
    set the text of member "cstType" of castLib "sshow" to item 4 of recLine
    set the text of member "cstBase" of castLib "sshow" to item 6 of recLine
    if item 5 of recLine = "hot" then
      set tempNum to the number of member 8 of castLib "sshow"
    end if
    if item 5 of recLine = "long" then
      set tempNum to the number of member 9 of castLib "sshow"
    end if
    if item 5 of recLine = "short" then
      set tempNum to the number of member 10 of castLib "sshow"
    end if
    if item 5 of recLine = "shot" then
      set tempNum to the number of member 11 of castLib "sshow"
    end if
    set the castNum of sprite 7 to tempNum
    set the text of member gTitleCstNum of castLib "sshow" to item 1 of recLine
    set tempCalc to gFirstPictureCstNum + gRecNumber - 1
    set the castNum of sprite gPictureSprite to tempCalc
    set transDirection to item direction + 1 of "back,forward"
    updateStage()
    updateScroll()
  else
    set gAutoMode to 0
  end if
end

on bringUpPict
  global gCurrentSlideShow, gRecNumber, gCurrentZone, gPictureSprite, gElevatorSprite, gScrollBarSprite, gSlideListCstNum, gTitleCstNum, gFirstPictureCstNum, gPictNumInOrder, gLinesNumber
  set the itemDelimiter to ","
  set currScroll to the locH of sprite gElevatorSprite - the left of sprite gScrollBarSprite
  set allListSize to gLinesNumber
  set scrlSize to the right of sprite gScrollBarSprite - the left of sprite gScrollBarSprite
  set gCurrentZone to currScroll * allListSize / scrlSize
  if gCurrentZone = 0 then
    set gCurrentZone to 1
  end if
  if gCurrentZone > gLinesNumber then
    set gCurrentZone to gLinesNumber
  end if
  set the itemDelimiter to ","
  set gPictNumInOrder to value(item gCurrentZone of the text of member "order" of castLib "sshow")
  set the itemDelimiter to ","
  set actualLine to line gPictNumInOrder of the text of member gSlideListCstNum of castLib "sshow"
  set gRecNumber to value(word 1 of item 2 of actualLine)
  set tempCalc to gFirstPictureCstNum + gRecNumber - 1
  set the castNum of sprite gPictureSprite to member tempCalc of castLib "slidenw"
  set the text of member gTitleCstNum of castLib "sshow" to item 1 of actualLine
  set the text of member "cstType" of castLib "sshow" to item 4 of actualLine
  set the text of member "cstBase" of castLib "sshow" to item 6 of actualLine
  if item 5 of actualLine = "long" then
    set tempNum to the number of member 9 of castLib "sshow"
  end if
  if item 5 of actualLine = "short" then
    set tempNum to the number of member 10 of castLib "sshow"
  end if
  if item 5 of actualLine = "shot" then
    set tempNum to the number of member 11 of castLib "sshow"
  end if
  if item 5 of actualLine = "hot" then
    set tempNum to the number of member 11 of castLib "sshow"
  end if
  set the castNum of sprite 7 to tempNum
  updateStage()
end

on updateScroll
  global gCurrentZone, gCurrentSlideShow, gPictureSprite, gElevatorSprite, gScrollBarSprite, gSlideListCstNum, gTitleCstNum, gFirstPictureCstNum, gLinesNumber
  set allListSize to gLinesNumber
  set scrlSize to the right of sprite gScrollBarSprite - the left of sprite gScrollBarSprite
  set newLocH to gCurrentZone * scrlSize / allListSize
  set the locH of sprite gElevatorSprite to newLocH + the left of sprite gScrollBarSprite
end

on InitSlideWithSettings cocktailNum
  duplicate(member cocktailNum of castLib "slidenw", member 200 of castLib "slidenw")
end